* Import ENH 1997-2
* This file converts the files from the ENH 1997-2 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/1997/2/eh965ju97.P99
* Outputs: Files in Data/Importable/ENH/1997/TRIM 2 

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/1997"
cap mkdir "`master'/Data/Importable/ENH/1997/TRIM 2"
cd "../../Data/Original/encuestas de hogares/ENH/1997"
cd eht19972

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 orden 26-27 ///
parentesco 28-29 sexo 30 edad 31-32 estado_civil 33 str departamento_nacimiento 34-35 str municipio_nacimiento 36-38  cabecera_nacimiento 39 tiempo_residencia 40-41 lee_escribe 42 asiste_escuela 43 colegio_oficial 44 ultimo_grado_estudios 45-47 ///
area 93-94 fex 95-98 ///
if tipo_registro==10 using eh96ju97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 orden 26-27 ///
actividad 28 trabajo_familia 29 no_trabajo_empleo 30 razon_ausente 31 busco_ultima 32 ha_buscado 33 no_ha_buscado_t 34-35 d_ing_trabajo 36 d_ing_intereses 37 d_ing_arriendo 38 d_ing_pension 39 d_ing_ayudas 40 d_ing_otros 41 d_ing_no 42 ingreso 43-52 ///
area 93-94 fex 95-98 ///
if tipo_registro==50 using eh96ju97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 orden 26-27 ///
trabajo_permanente 28 horas_ultima 29-30 horas_semana 31-32 quiere_trabajar_mas 33 motivo_trab_mas 34 ocupacion 35-36 actividad_empresa 37-38 tipo_trabajador 39 salario 40-49 salario_period 50 d_salario_alimentos 51 salario_alimentos 52-61 ganancia_mes 62-71 d_otros_ingresos 72 otros_ingresos 73-82 afiliado_salud 83 afiliado_pension 84  ///
area 93-94 fex 95-98 ///
if tipo_registro==60 using eh96ju97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_ocupados.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 orden 26-27 ///
tiempo_buscando 28-29 buscado_pte 30 buscado_tcompleto 31 buscado_tipo 32 buscado_ocupacion 33-34 buscado_actividad 35-36 buscado_primeravez 37 tiempo_dejo_trabajar 38-39 trabajoo_ocupacion 40-41 trabajoo_actividad 42-43 trabajoo_tipo 43 d_ing_trabajo 45 d_ing_intereses 46 d_ing_arriendos 47 d_ing_pensiones 48 d_ing_ayudas 49 d_ing_otros 50 d_ing_no 50 ingreso 52-61 ///
area 93-94 fex 95-98 ///
if tipo_registro==70 using eh96ju97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_desocupados.dta")

* Registro tipo 80 - Inactivos
clear 
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 orden 26-27 ///
segunda_actividad 28 tiempo_inactivo 29 actividad_antes 30-31 tiempo_trabajando 32-33 motivo_dejo_trabajo 34 ha_buscado 35 cuando_busco 36-37 motivo_no_buscado 38 ///
area 93-94 fex 95-98 ///
if tipo_registro==80 using eh96ju97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_inactivos.dta")

* Registro tipo 90 - Frecuencia y lugar de compra

clear 
infix tipo_registro 1-2 str id 3-27 str municipio 3-5 segmento 6-8 estrato 9 sector 10-13 seccion 14-15 manzana 16-17 vivienda 18-20 hogar 21-22 personas_hogar 23-24 resultado_encuesta 25 ///
f_granos 26-27 l_granos 28-29 f_fruver 30-31 l_fruver 32-33 f_res 34-35 l_res 36-37 f_pollo 38-39 l_pollo 40-41 f_leche 42-43 l_leche 44-45 f_lacteos 46-47 l_lacteos 48-49 f_pan 50-51 l_pan 52-53 f_limpieza 54-55 l_limpieza 56-57  f_aseo 58-59 l_aseo 60-61 f_licores 62-63 l_licores 64-65 f_cigarrillos 66-67 l_cigarrillos 68-69 f_ropa_hombre 70-71 l_ropa_hombre 72-73 f_ropa_mujer 74-75 l_ropa_mujer 76-77 f_ropa_nino 78-79 l_ropa_nino 80-81 f_calzado_h 82-83 l_calzado_h 84-85 f_calzado_mujer 86-87 l_calzado_mujer 88-89  ///
area 93-94 fex 95-98 ///
if tipo_registro==90 using eh96ju97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_compra.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 2/1997_2_compra.dta")

